' Test oh ar STx famous number to invert.txt 2021-03-16 need line 9 number in clipboard for line 2 to work.
' Update this test with the new inverse[PosInteger,NumberOfDecimalPlaces]

' copy paste STx number 23-9's, 1-8, 24-9's
STxNumber = 999999999999999999999998999999999999999999999999
. STxNumber to find inverse that equals first 100 plus terms of Fibonacci Series:
. STxNumber
.
. And drum roll.... the inverse is:
Fibonacci = inverse[STxNumber,4000]
. Fibonacci
.
. What do ya say we determine just exactly how many terms we have?
. ZZZ... press any to count terms.
zzz
f1 = 1
f2 = 1
startSearch = 1
termN = 2
[
	searchFor = add[f1,f2]
	find = in3[startSearch,Fibonacci,searchFor]
	if find
		termN = a[termN,1]
		. Term Number ;termN; = ;searchFor; found at ;find
		f1 = f2
		f2 = searchFor
		startSearch = a[find,len[searchFor]]
	el
		. searchFor; not found.
		jmp 1
	fi
]
. Here is the next 30 places after last find
. mid3[Fibonacci,startSearch,30]
. This concludes our search for the number of Fibonacci Terms in the inverse of Stx Number.